home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
mac
/
prime_CD
/
pb
/
ERAS
/
CREDITS.Cst
/
00208_Field_text adjust-o-matic.txt
< prev
next >
Wrap
Text File
|
1997-07-16
|
1KB
|
34 lines
-- remove after development
on mouseDown
if the mouseH < the right of sprite the clickon - 16 then
repeat while the stillDown
set times = times + 1
case times of
1: set theDelta = 1
10: set theDelta = 2
20: set theDelta = 4
30: set theDelta = 8
end case
if the shiftdown then set theDelta = - 1
else set theDelta = theDelta
set the scrolltop of the member of sprite the clickon = the scrolltop of the member of sprite the clickon + theDelta
end repeat
else pass
end
on mouseUp
global gTextIndex
if voidP(gTextIndex) then set gTextIndex = [:]
do "setaprop gTextIndex, #" & the framelabel & "," & the scrolltop of the member of sprite the clickon
if the optionDown then
-- update the script
put the scripttext of member "Internal Tables" into it
put line 1 to 2 of it into txtHead
delete line 1 to 3 of it
put return & "set gTextIndex = " & string(gTextIndex) & return after txtHead
put txthead & it into newScript
set the scripttext of member "internal tables" = newscript
end if
end